home *** CD-ROM | disk | FTP | other *** search
/ Complete Linux / Complete Linux.iso / docs / system / mail / transpor / ifmail23.z / ifmail23 / ifmail / misc / a2dbm next >
Encoding:
Text File  |  1993-05-22  |  246 b   |  15 lines
  1. #!/usr/bin/perl
  2.  
  3. dbmopen(ifdbm,"ifdbm",0666);
  4.  
  5. open(alias,"/usr/local/lib/fnet/Alias") || die "Cannot open alias file";
  6. while(<alias>) {
  7.     unless (/^#/) {
  8.         /([^ ]*) *(.*) *$/;
  9.         print $1, "--", $2, "\n";
  10.         $ifdbm{$2} = $1;
  11.     }
  12. }
  13.  
  14. dbmclose(ifdbm);
  15.